home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.10 Oct 88 / Transfer DA Code Update / Data.asm < prev    next >
Encoding:
Assembly Source File  |  1989-01-20  |  1.9 KB  |  111 lines  |  [TEXT/MPS ]
  1. ;*******************************************************************
  2. ;
  3. ;    Data.asm
  4. ;
  5. ;    (c) 1988, 1989 Attic Software
  6. ;
  7. ;    assembly routines for scrolling MDEF.
  8. ;
  9. ;*******************************************************************
  10.  
  11. ;*******************************************************************
  12. ;    exported routines
  13. ;*******************************************************************
  14.  
  15.     xdef        gethandle
  16.     xdef        sethandle
  17.  
  18.     xdef        getoffset
  19.     xdef        setoffset
  20.  
  21.     xdef        getsize
  22.     xdef        setsize
  23.  
  24.     xdef        getlength
  25.     xdef        setlength
  26.  
  27.     xdef        getflags
  28.     xdef        setflags
  29.  
  30. ;*******************************************************************
  31.  
  32.     thehandle    equ     0
  33.     theoffset    equ     4
  34.     thesize        equ     6
  35.     thelength    equ     8
  36.     theflags    equ    10
  37.  
  38. ;*******************************************************************
  39.  
  40. gethandle
  41.     lea        thedata,A0
  42.     move.l        (A0),4(SP)
  43.     rts
  44.  
  45. sethandle
  46.     movea.l        (SP)+,A1
  47.     lea        thedata,A0
  48.     move.l        (SP)+,(A0)
  49.     jmp        (A1)
  50.  
  51. ;*******************************************************************
  52.  
  53. getoffset
  54.     move.w        #theoffset,D0
  55.     bra.s        getdata
  56.  
  57. setoffset
  58.     move.w        #theoffset,D0
  59.     bra.s        setdata
  60.  
  61. getsize
  62.     move.w        #thesize,D0
  63.     bra.s        getdata
  64.  
  65. setsize
  66.     move.w        #thesize,D0
  67.     bra.s        setdata
  68.  
  69. getlength
  70.     move.w        #thelength,D0
  71.     bra.s        getdata
  72.  
  73. setlength
  74.     move.w        #thelength,D0
  75.     bra.s        setdata
  76.  
  77. getflags
  78.     move.w        #theflags,D0
  79.     bra.s        getdata
  80.  
  81. setflags
  82.     move.w        #theflags,D0
  83.     bra.s        setdata
  84.  
  85. ;*******************************************************************
  86.  
  87. getdata
  88.     lea        thedata,A0
  89.     move.w        (A0,D0.w),4(SP)
  90.     rts
  91.  
  92. setdata
  93.     movea.l        (SP)+,A1
  94.     lea        thedata,A0
  95.     move.w        (SP)+,(A0,D0.w)
  96.     jmp        (A1)
  97.  
  98. ;*******************************************************************
  99.  
  100. thedata
  101.     dc.w        '••••••••••••'
  102.     dc.w        '(c) 1988, 1989, '
  103.     dc.w        'Clifford Story and Attic Software.  '
  104.     dc.w        'All rights reserved.'
  105.  
  106. ;*******************************************************************
  107.  
  108.     end
  109.  
  110. ;*******************************************************************
  111.